home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 1 / BBS in a box - Trilogy I.iso / Files / Music / M / M5Mac ƒ / Scripts folder / JCR500.PAR < prev    next >
Encoding:
Text File  |  1992-06-26  |  932 b   |  45 lines  |  [TEXT/M5Mc]
  1. com --------------------------JCR500--------------------------------;
  2. com analyse spectrale d'un accord;
  3. com a jouer à l'envers;
  4. com ----------------------------------------------------------------;
  5. sam 25600;
  6. chn 2;
  7. sv3 0 1 0;
  8. com -----------------------------------;
  9. ins 0 1;
  10. cnv p5=sqr(p5/10);
  11. cnv p6=htz(p6);
  12. cnv p7=dur(p7);
  13. ios p5 p7 b3 F2 P30;
  14. mlt b3 b3 b4;
  15. ios b4 p6 b4 f1 p29;
  16. str b4 v1;
  17. end;
  18. com -----------------------------------;
  19. ins 0 2;
  20. cnv p5=sqr(p5/10);
  21. cnv p6=htz(p6);
  22. cnv p7=dur(p7);
  23. ios p5 p7 b3 F2 P30;
  24. mlt b3 b3 b4;
  25. ios b4 p6 b4 f1 p29;
  26. str v1 b4;
  27. end;
  28. com -----------------------------------;
  29. gen 0 2 1 512 1 1;
  30. gen 0 3 2 512 0 2 4 6 8 10 0;
  31. com -----------------------------------;
  32. plf 1 3 2 10 1 0 0;
  33. not 1 1 2 500 208 2;
  34. not 1.01 2 2 500 294 2;
  35.  
  36. plf 1 3 2 8 1.25 0 0;
  37. not 1 1 3.75 500 392 3.75;
  38. not 1.01 1 3.75 500 659 3.75;
  39.  
  40. plf 1 3 2 4 2.5 1;
  41. not 1 1 7.5 500 988 7.5;
  42. not 1 1 7.5 500 1865 7.5;
  43. ter 15;
  44.  
  45.